home *** CD-ROM | disk | FTP | other *** search
/ 1000 Apple LAN Literacy / 1000 Apple LAN Literacy.iso / Apple LAN Literacy / Literacy Segments Part 1 / Literacy Segments Part 1 / background_96231.txt < prev    next >
Text File  |  1989-08-22  |  15KB  |  669 lines
  1. -- background: 96231 from stack: in
  2. -- bmap block id: 96473
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 1.2.2 Practice3
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global answerTracker
  9.   send mouseUp to bg btn "done"
  10.   put line (line 2 of fld "key") of answerTracker into theLocs
  11.   if theLocs is not empty then
  12.     repeat with i = 1 to number of lines in fld "origins"
  13.       get item (i*2 - 1) to (i*2) of theLocs
  14.       set the loc of fld ("item" & i) to it
  15.     end repeat
  16.   else
  17.     repeat with j = 1 to number of lines in fld "origins"
  18.       set the loc of fld ("item" & j) to (line j of fld "origins")
  19.     end repeat
  20.   end if
  21.   pass openCard
  22. end openCard
  23.  
  24. on closeCard
  25.   global answerTracker
  26.   get line 2 of fld "key"  -- says which line of global to worry about
  27.   put empty into line it of answerTracker
  28.   repeat with i = 1 to number of lines in fld "origins"
  29.     put the loc of fld ("item" & i) & "," after line it of answerTracker
  30.   end repeat
  31.   delete last char of line it of answerTracker
  32.   pass closeCard
  33. end closeCard
  34.  
  35. on moveField
  36.   get fld "decisions"
  37.   repeat until the mouse is up
  38.     if item 2 of the mouseLoc > line 1 of it
  39.     then set the loc of the target to the mouseLoc
  40.   end repeat
  41.   put the loc of the target into temp
  42.   if item 1 of the loc of the target > (line 2 of it) then
  43.     if item 2 of the loc of the target < (line 3 of it) then
  44.       validate (line 1 of fld "destinations")
  45.     else if item 2 of the loc of the target < (line 4 of it) then
  46.       validate (line 2 of fld "destinations")
  47.     else if item 2 of the loc of the target < (line 5 of it) then
  48.       validate (line 3 of fld "destinations")
  49.     else validate (line 4 of fld "destinations")
  50.   end if
  51.   if the loc of the target = temp
  52.   then set the loc of the target to line (last char of the short name of the target) of fld "origins"
  53. end moveField
  54.  
  55. on validate where
  56.   repeat with i = 1 to 4
  57.     if the short name of the target = ("item" & i) then next repeat
  58.     if the loc of fld ("item" & i) = where then exit validate
  59.   end repeat
  60.   set the loc of the target to where
  61. end validate
  62.  
  63. on hideFeedback
  64.   lock screen
  65.   hide fld "Feedback1"
  66.   hide fld "Feedback2"
  67.   hide fld "Feedback3"
  68.   hide fld "Feedback4"
  69.   hide fld "Feedback5"
  70.   hide fld "CorrectAnswer"
  71.   hide fld "MasterFeedback"
  72.   hide bg btn "Done"
  73.   unlock screen
  74. end hideFeedback
  75.  
  76. on showFeedback
  77.   lock screen
  78.   show fld "Feedback1"
  79.   show fld "Feedback2"
  80.   show fld "Feedback3"
  81.   show fld "Feedback4"
  82.   show fld "Feedback5"
  83.   show fld "CorrectAnswer"
  84.   show fld "MasterFeedback"
  85.   show bg btn "Done"
  86.   unlock screen
  87. end showFeedback
  88.  
  89.  
  90. -- part 3 (field)
  91. -- low flags: 01
  92. -- high flags: 0000
  93. -- rect: left=18 top=1 right=38 bottom=442
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 156
  98. -- text size: 24
  99. -- style flags: 10240
  100. -- line height: 32
  101. -- part name: Title
  102.  
  103.  
  104. -- part 14 (button)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=443 top=5 right=72 bottom=512
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Instant Reference
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   instantReference "1.2.2"
  119. end mouseUp
  120.  
  121.  
  122. -- part 15 (button)
  123. -- low flags: 00
  124. -- high flags: 2000
  125. -- rect: left=480 top=143 right=172 bottom=511
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 1310 / 1310
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Student Services
  134. ----- HyperTalk script -----
  135. on mousedown
  136.   SSpopUp
  137. end mousedown
  138.  
  139. on mouseup
  140.   if the mouseloc is not within the rect of me then exit to hyperCard
  141.   doSS
  142. end mouseup
  143.  
  144.  
  145.  
  146. -- part 16 (button)
  147. -- low flags: 00
  148. -- high flags: 2000
  149. -- rect: left=482 top=176 right=205 bottom=511
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 162 / 162
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: Help
  158. ----- HyperTalk script -----
  159. on mouseUp
  160.   Help
  161. end mouseUp
  162.  
  163.  
  164.  
  165. -- part 17 (button)
  166. -- low flags: 00
  167. -- high flags: 2000
  168. -- rect: left=482 top=294 right=320 bottom=509
  169. -- title width / last selected line: 0
  170. -- icon id / first selected line: 1236 / 1236
  171. -- text alignment: 1
  172. -- font id: 0
  173. -- text size: 12
  174. -- style flags: 0
  175. -- line height: 16
  176. -- part name: Last Menu
  177. ----- HyperTalk script -----
  178. on mouseUp
  179.   go cd "Protocols P/1"
  180. end mouseUp
  181.  
  182.  
  183.  
  184.  
  185. -- part 20 (field)
  186. -- low flags: 01
  187. -- high flags: 0000
  188. -- rect: left=16 top=38 right=65 bottom=437
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 0
  192. -- font id: 156
  193. -- text size: 20
  194. -- style flags: 0
  195. -- line height: 26
  196. -- part name: Subtitle
  197.  
  198.  
  199. -- part 21 (field)
  200. -- low flags: 01
  201. -- high flags: 0000
  202. -- rect: left=16 top=68 right=88 bottom=470
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 0
  206. -- font id: 3
  207. -- text size: 10
  208. -- style flags: 256
  209. -- line height: 15
  210. -- part name: Instruction
  211.  
  212.  
  213. -- part 23 (field)
  214. -- low flags: 01
  215. -- high flags: 2002
  216. -- rect: left=307 top=108 right=159 bottom=462
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 156
  221. -- text size: 13
  222. -- style flags: 0
  223. -- line height: 14
  224. -- part name: Item5
  225.  
  226.  
  227. -- part 24 (field)
  228. -- low flags: 01
  229. -- high flags: 2002
  230. -- rect: left=307 top=161 right=212 bottom=462
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 0
  234. -- font id: 156
  235. -- text size: 13
  236. -- style flags: 0
  237. -- line height: 14
  238. -- part name: Item6
  239.  
  240.  
  241. -- part 25 (field)
  242. -- low flags: 01
  243. -- high flags: 2002
  244. -- rect: left=307 top=214 right=265 bottom=462
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 0 / 0
  247. -- text alignment: 0
  248. -- font id: 156
  249. -- text size: 13
  250. -- style flags: 0
  251. -- line height: 14
  252. -- part name: Item7
  253.  
  254.  
  255. -- part 35 (field)
  256. -- low flags: 81
  257. -- high flags: 2007
  258. -- rect: left=8 top=36 right=94 bottom=231
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 156
  263. -- text size: 16
  264. -- style flags: 0
  265. -- line height: 17
  266. -- part name: Feedback1
  267.  
  268.  
  269. -- part 43 (field)
  270. -- low flags: 81
  271. -- high flags: 2007
  272. -- rect: left=8 top=97 right=155 bottom=231
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 0
  276. -- font id: 156
  277. -- text size: 16
  278. -- style flags: 0
  279. -- line height: 17
  280. -- part name: Feedback2
  281.  
  282.  
  283. -- part 37 (field)
  284. -- low flags: 81
  285. -- high flags: 2007
  286. -- rect: left=8 top=159 right=216 bottom=231
  287. -- title width / last selected line: 0
  288. -- icon id / first selected line: 0 / 0
  289. -- text alignment: 0
  290. -- font id: 156
  291. -- text size: 16
  292. -- style flags: 0
  293. -- line height: 17
  294. -- part name: Feedback3
  295.  
  296.  
  297. -- part 38 (field)
  298. -- low flags: 81
  299. -- high flags: 2007
  300. -- rect: left=8 top=219 right=277 bottom=231
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 0
  304. -- font id: 156
  305. -- text size: 16
  306. -- style flags: 0
  307. -- line height: 17
  308. -- part name: Feedback4
  309.  
  310.  
  311. -- part 40 (field)
  312. -- low flags: 81
  313. -- high flags: 2007
  314. -- rect: left=8 top=280 right=338 bottom=231
  315. -- title width / last selected line: 0
  316. -- icon id / first selected line: 0 / 0
  317. -- text alignment: 0
  318. -- font id: 156
  319. -- text size: 16
  320. -- style flags: 0
  321. -- line height: 17
  322. -- part name: CorrectAnswer
  323.  
  324.  
  325. -- part 39 (field)
  326. -- low flags: 81
  327. -- high flags: 2007
  328. -- rect: left=238 top=32 right=89 bottom=461
  329. -- title width / last selected line: 0
  330. -- icon id / first selected line: 0 / 0
  331. -- text alignment: 0
  332. -- font id: 156
  333. -- text size: 16
  334. -- style flags: 0
  335. -- line height: 17
  336. -- part name: Feedback5
  337.  
  338.  
  339. -- part 5 (field)
  340. -- low flags: 81
  341. -- high flags: 0001
  342. -- rect: left=423 top=0 right=13 bottom=466
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 65535
  346. -- font id: 4
  347. -- text size: 9
  348. -- style flags: 0
  349. -- line height: 12
  350. -- part name: CardTitle
  351.  
  352.  
  353. -- part 44 (button)
  354. -- low flags: 00
  355. -- high flags: A004
  356. -- rect: left=268 top=321 right=340 bottom=413
  357. -- title width / last selected line: 0
  358. -- icon id / first selected line: 0 / 0
  359. -- text alignment: 1
  360. -- font id: 0
  361. -- text size: 12
  362. -- style flags: 0
  363. -- line height: 16
  364. -- part name: Answer
  365. ----- HyperTalk script -----
  366. on mouseUp
  367.   send mouseUp to bg btn "done"
  368.   repeat with i = 1 to number of lines in fld "origins"
  369.     set the loc of fld ("item" & i) to (line i of fld "origins")
  370.   end repeat
  371.   put line 1 of fld "key" into theLocs
  372.   repeat with i = 1 to number of lines in fld "origins"
  373.     get item (i*2 - 1) to (i*2) of theLocs
  374.     set the loc of fld ("item" & i) to it
  375.   end repeat
  376. end mouseUp
  377.  
  378.  
  379. -- part 58 (button)
  380. -- low flags: 00
  381. -- high flags: 2000
  382. -- rect: left=482 top=208 right=234 bottom=509
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 1234 / 1234
  385. -- text alignment: 1
  386. -- font id: 0
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: Lesson
  391. ----- HyperTalk script -----
  392. on mouseUp
  393.   lesson "1.2.2"
  394. end mouseUp
  395.  
  396.  
  397. -- part 59 (field)
  398. -- low flags: 01
  399. -- high flags: 2000
  400. -- rect: left=176 top=121 right=150 bottom=302
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 1
  404. -- font id: 156
  405. -- text size: 16
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: Label1
  409.  
  410.  
  411. -- part 61 (field)
  412. -- low flags: 01
  413. -- high flags: 2000
  414. -- rect: left=176 top=174 right=203 bottom=302
  415. -- title width / last selected line: 0
  416. -- icon id / first selected line: 0 / 0
  417. -- text alignment: 1
  418. -- font id: 156
  419. -- text size: 16
  420. -- style flags: 0
  421. -- line height: 16
  422. -- part name: Label2
  423.  
  424.  
  425. -- part 62 (field)
  426. -- low flags: 01
  427. -- high flags: 2000
  428. -- rect: left=176 top=227 right=256 bottom=302
  429. -- title width / last selected line: 0
  430. -- icon id / first selected line: 0 / 0
  431. -- text alignment: 1
  432. -- font id: 156
  433. -- text size: 16
  434. -- style flags: 0
  435. -- line height: 16
  436. -- part name: Label2
  437.  
  438.  
  439. -- part 63 (field)
  440. -- low flags: 01
  441. -- high flags: 2000
  442. -- rect: left=176 top=280 right=309 bottom=302
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 0 / 0
  445. -- text alignment: 1
  446. -- font id: 156
  447. -- text size: 16
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: Label2
  451.  
  452.  
  453. -- part 64 (field)
  454. -- low flags: 01
  455. -- high flags: 2002
  456. -- rect: left=307 top=267 right=318 bottom=462
  457. -- title width / last selected line: 0
  458. -- icon id / first selected line: 0 / 0
  459. -- text alignment: 0
  460. -- font id: 156
  461. -- text size: 13
  462. -- style flags: 0
  463. -- line height: 14
  464. -- part name: Item8
  465.  
  466.  
  467. -- part 65 (field)
  468. -- low flags: 01
  469. -- high flags: 2004
  470. -- rect: left=16 top=108 right=159 bottom=142
  471. -- title width / last selected line: 0
  472. -- icon id / first selected line: 0 / 0
  473. -- text alignment: 0
  474. -- font id: 156
  475. -- text size: 13
  476. -- style flags: 0
  477. -- line height: 14
  478. -- part name: Item1
  479. ----- HyperTalk script -----
  480. on mouseDown
  481.   moveField
  482. end mouseDown
  483.  
  484.  
  485. -- part 66 (field)
  486. -- low flags: 01
  487. -- high flags: 2004
  488. -- rect: left=16 top=161 right=212 bottom=142
  489. -- title width / last selected line: 0
  490. -- icon id / first selected line: 0 / 0
  491. -- text alignment: 0
  492. -- font id: 156
  493. -- text size: 13
  494. -- style flags: 0
  495. -- line height: 14
  496. -- part name: Item2
  497. ----- HyperTalk script -----
  498. on mouseDown
  499.   moveField
  500. end mouseDown
  501.  
  502.  
  503. -- part 67 (field)
  504. -- low flags: 01
  505. -- high flags: 2004
  506. -- rect: left=16 top=214 right=265 bottom=142
  507. -- title width / last selected line: 0
  508. -- icon id / first selected line: 0 / 0
  509. -- text alignment: 0
  510. -- font id: 156
  511. -- text size: 13
  512. -- style flags: 0
  513. -- line height: 14
  514. -- part name: Item3
  515. ----- HyperTalk script -----
  516. on mouseDown
  517.   moveField
  518. end mouseDown
  519.  
  520.  
  521. -- part 68 (field)
  522. -- low flags: 01
  523. -- high flags: 2004
  524. -- rect: left=16 top=267 right=318 bottom=142
  525. -- title width / last selected line: 0
  526. -- icon id / first selected line: 0 / 0
  527. -- text alignment: 0
  528. -- font id: 156
  529. -- text size: 13
  530. -- style flags: 0
  531. -- line height: 14
  532. -- part name: Item4
  533. ----- HyperTalk script -----
  534. on mouseDown
  535.   moveField
  536. end mouseDown
  537.  
  538.  
  539. -- part 41 (field)
  540. -- low flags: 81
  541. -- high flags: 2004
  542. -- rect: left=147 top=132 right=304 bottom=356
  543. -- title width / last selected line: 0
  544. -- icon id / first selected line: 0 / 0
  545. -- text alignment: 0
  546. -- font id: 156
  547. -- text size: 16
  548. -- style flags: 0
  549. -- line height: 17
  550. -- part name: MasterFeedback
  551.  
  552.  
  553. -- part 42 (button)
  554. -- low flags: 80
  555. -- high flags: A002
  556. -- rect: left=215 top=279 right=296 bottom=284
  557. -- title width / last selected line: 0
  558. -- icon id / first selected line: 0 / 0
  559. -- text alignment: 1
  560. -- font id: 0
  561. -- text size: 12
  562. -- style flags: 0
  563. -- line height: 16
  564. -- part name: Done
  565. ----- HyperTalk script -----
  566. on mouseUp
  567.   lock screen
  568.   hide fld "MasterFeedback"
  569.   hide bg btn "Done"
  570.   unlock screen
  571. end mouseUp
  572.  
  573.  
  574.  
  575. -- part 69 (button)
  576. -- low flags: 00
  577. -- high flags: 2000
  578. -- rect: left=478 top=319 right=341 bottom=498
  579. -- title width / last selected line: 0
  580. -- icon id / first selected line: 1238 / 1238
  581. -- text alignment: 1
  582. -- font id: 0
  583. -- text size: 12
  584. -- style flags: 0
  585. -- line height: 16
  586. -- part name: Prev
  587. ----- HyperTalk script -----
  588. on mouseUp
  589.   lock screen
  590.   go prev
  591.   unlock screen with scroll right
  592. end mouseUp
  593.  
  594.  
  595. -- part 70 (button)
  596. -- low flags: 00
  597. -- high flags: 2000
  598. -- rect: left=493 top=319 right=341 bottom=512
  599. -- title width / last selected line: 0
  600. -- icon id / first selected line: 1237 / 1237
  601. -- text alignment: 1
  602. -- font id: 0
  603. -- text size: 12
  604. -- style flags: 0
  605. -- line height: 16
  606. -- part name: Next
  607. ----- HyperTalk script -----
  608. on mouseUp
  609.   lock screen
  610.   go next
  611.   unlock screen with scroll left
  612. end mouseUp
  613.  
  614.  
  615. -- part 71 (field)
  616. -- low flags: 81
  617. -- high flags: 0002
  618. -- rect: left=0 top=0 right=81 bottom=75
  619. -- title width / last selected line: 0
  620. -- icon id / first selected line: 0 / 0
  621. -- text alignment: 0
  622. -- font id: 3
  623. -- text size: 12
  624. -- style flags: 0
  625. -- line height: 16
  626. -- part name: origins
  627.  
  628.  
  629. -- part 72 (field)
  630. -- low flags: 81
  631. -- high flags: 0002
  632. -- rect: left=77 top=0 right=81 bottom=152
  633. -- title width / last selected line: 0
  634. -- icon id / first selected line: 0 / 0
  635. -- text alignment: 0
  636. -- font id: 3
  637. -- text size: 12
  638. -- style flags: 0
  639. -- line height: 16
  640. -- part name: destinations
  641.  
  642.  
  643. -- part 73 (field)
  644. -- low flags: 81
  645. -- high flags: 0002
  646. -- rect: left=154 top=0 right=81 bottom=194
  647. -- title width / last selected line: 0
  648. -- icon id / first selected line: 0 / 0
  649. -- text alignment: 0
  650. -- font id: 3
  651. -- text size: 12
  652. -- style flags: 0
  653. -- line height: 16
  654. -- part name: decisions
  655.  
  656.  
  657. -- part 74 (field)
  658. -- low flags: 81
  659. -- high flags: 0002
  660. -- rect: left=196 top=0 right=34 bottom=426
  661. -- title width / last selected line: 0
  662. -- icon id / first selected line: 0 / 0
  663. -- text alignment: 0
  664. -- font id: 3
  665. -- text size: 12
  666. -- style flags: 0
  667. -- line height: 16
  668. -- part name: key
  669.